home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00822_SU-IN en 2.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.8 KB  |  59 lines
  1. on exitFrame
  2.   global gSujet0, gSujet1, gMessDef1, gMessDef2, gMessSty2, gEtudAct, gEtudPrec, gEtatEtud, gPartie, g1erSprChr, g1erSprLoc, g1erSprNav, gMaxBoutons, gBoutons, gSurvolPrec, gTraduit, gIndEnv, gOffZ, gOffE, gEnvSel, gOldEnvSel, gCodZoom, gScopeEnZ, gScopeEnB, gDur
  3.   BigPurge()
  4.   repeat with i = g1erSprChr to gMaxBoutons
  5.     puppetSprite(i, 1)
  6.   end repeat
  7.   gBoutons(appuie, g1erSprLoc + 3)
  8.   gBarChron(fleche, 0, 1, 1)
  9.   Affiche_Date(gSujet0, "ZI1", "ZI2", "ZI3", 0)
  10.   set monEpok to gSujet0(Le_Epoque)
  11.   if (monEpok = 70) or (monEpok = 4) then
  12.     gBoutons(habille, g1erSprLoc + 5, "vide")
  13.   end if
  14.   gBarChron(fleche, 1, monEpok, 0)
  15.   set monStatut to gSujet0(Le_Statut)
  16.   if monStatut = "A" then
  17.     gBoutons(appuie, g1erSprLoc + 4)
  18.     set the visible of sprite (g1erSprNav + 2) to 1
  19.   else
  20.     gBoutons(appuie, g1erSprLoc + 5)
  21.     set the visible of sprite (g1erSprNav + 2) to 0
  22.   end if
  23.   repeat with i = g1erSprLoc to gMaxBoutons
  24.     set the visible of sprite i to 1
  25.   end repeat
  26.   set gMessDef1 to getAt(gTraduit, 64)
  27.   set the foreColor of cast "ZI5" to the foreColor of cast "jaune"
  28.   set gMessDef2 to " "
  29.   set gMessSty2 to "bold"
  30.   if gEtudPrec = "FI" then
  31.     gScopeEnB(visible, 1)
  32.     gScopeEnZ(visible, 1)
  33.     gBoutons(habille, g1erSprLoc + 7, "BTGOEI 1")
  34.     SetBoxEnv()
  35.     go(label("SU:RN EN"))
  36.     curseur(-1)
  37.   else
  38.     sound fadeOut 1, 60
  39.     set moncod to gSujet0(Le_CodeZoom)
  40.     set gCodZoom to moncod
  41.     setEnv(moncod, 1)
  42.     set numZ to getPos(gIndEnv, moncod)
  43.     set gOffZ to (numZ - 1) * ((4 * 323) + 101)
  44.     put ">" && gOffZ
  45.     gScopeEnZ(SetTime, 0)
  46.     gScopeEnZ(Box, 20, 295, 280, 459)
  47.     gScopeEnZ(VolAbs)
  48.     gScopeEnZ(visible, 1)
  49.     set gDur to 86 * 4
  50.     set gPartie to " "
  51.     set gSujet1 to 0
  52.     set gEtatEtud to " "
  53.     set gEtatPrec to " "
  54.     set gEnvSel to 0
  55.     set gOldEnvSel to 0
  56.     puppetSound(0)
  57.   end if
  58. end
  59.